unit Frame_Set_DataBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls;

type
  TFrame_Set_DB = class(TFrame)
    GroupBox1: TGroupBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

implementation

uses Unit1;

{$R *.dfm}

procedure TFrame_Set_DB.Button1Click(Sender: TObject);
begin
  Form1.PDB.ClearDBList;
  Form1.PDB.CleanDB;
end;

end.
